home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 02 Help & Utilities / RS232.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  23KB  |  94 lines
  1. 10 POKE56,160:CLR:GOTO2020
  2. 20 POKE56,30:CLR:DIMA$,A:V=53248:POKE155,0
  3. 22 PRINT"[147][142]PRESS F1 TO VIEW SCHEMATIC DIAGRAM."
  4. 25 PRINT"PRESS F3 TO PRINT SCHEMATIC DIAGRAM."
  5. 27 PRINT"PRESS F5 TO READ TEXT."
  6. 30 PRINT"PRESS F7 TO PRINT TEXT."
  7. 32 PRINT"PRESS F8 TO EXIT."
  8. 35 GETA$:IFA$=CHR$(133)THEN52
  9. 37 IFA$=CHR$(134)THEN100
  10. 40 IFA$=CHR$(135)THEN300
  11. 42 IFA$=CHR$(136)THEN500
  12. 45 IFA$=CHR$(140)THENPOKE56,160:END
  13. 47 GOTO35
  14. 52 PRINT"[147]STEP THROUGH SCHEMATIC WITH"
  15. 53 PRINT"CURSOR UP AND CURSOR DOWN."
  16. 55 PRINT"PRESS RETURN FOR MAIN MENU."
  17. 57 PRINT"PRESS RETURN WHEN READY."
  18. 60 GETA$:IFA$=CHR$(13)THEN65
  19. 62 GOTO60
  20. 65 SYS49152
  21. 70 POKE253,64:POKE254,33:POKE141,0:POKE142,92
  22. 75 POKE251,192:POKE252,90:POKE139,0:POKE140,32:POKE150,192:POKE151,30
  23. 80 POKEV+17,59:POKEV+24,24
  24. 85 SYS49175
  25. 90 POKEV+17,27:POKEV+24,20:GOTO22
  26. 100 PRINT"[147]PRESS F1 FOR NORMAL HEIGHT."
  27. 105 PRINT"PRESS F3 FOR DOUBLE HEIGHT."
  28. 110 GETA$:IFA$=CHR$(133)THENPOKE880,0:GOTO125
  29. 115 IFA$=CHR$(134)THENPOKE880,255:GOTO125
  30. 120 GOTO110
  31. 125 PRINT"ONE MOMENT PLEASE..."
  32. 130 IFPEEK(155)=0THEN150
  33. 135 POKE253,64:POKE254,33:POKE141,0:POKE142,92
  34. 140 POKE251,192:POKE252,90:POKE139,0:POKE140,32:POKE150,192:POKE151,30
  35. 145 FORI=0TOPEEK(155)-1:SYS49820:NEXT
  36. 150 PRINT"PRINTING PAGE 1"
  37. 155 GOSUB800
  38. 160 PRINT"PRINTING PAGE 2"
  39. 165 GOSUB800
  40. 190 GOTO22
  41. 300 PRINT"[147]PRESS F1 TO START PRINTING TO SCREEN."
  42. 310 PRINT"PRESS F3 TO STOP PRINTING TO SCREEN."
  43. 320 PRINT"PRESS RETURN FOR MAIN MENU."
  44. 330 PRINT"PRESS RETURN WHEN READY."
  45. 340 GETA$:IFA$=CHR$(13)THEN355
  46. 350 GOTO340
  47. 355 POKE251,64:POKE252,93:POKE150,0:PRINT"[147]             [208][210][197][211][211] [198]1"
  48. 360 PRINT"";:SYS49876
  49. 365 IFPEEK(2)THEN22
  50. 370 PRINT"                [212][200][197] [197][206][196]"
  51. 375 PRINT"[208][210][197][211][211] [210][197][212][213][210][206] [198][207][210] [205][193][201][206] [205][197][206][213]"
  52. 380 GETA$:IFA$=CHR$(13)THENPRINT"[142]":GOTO22
  53. 385 GOTO380
  54. 500 PRINT"[147]PRESS S FOR SINGLE LINE SPACING."
  55. 502 PRINT"PRESS D FOR DOUBLE LINE SPACING."
  56. 503 GETA$:IFA$="S"THENPOKE150,0:GOTO510
  57. 505 IFA$="D"THENPOKE150,1:GOTO510
  58. 507 GOTO503
  59. 510 PRINT"[147]PRESS F1 TO SEND TEXT TO PRINTER."
  60. 512 PRINT"PRESS F3 TO STOP PRINTING."
  61. 513 PRINT"PRESS RETURN FOR MAIN MENU."
  62. 515 GETA$:IFA$=CHR$(133)THEN530
  63. 520 IFA$=CHR$(13)THEN22
  64. 525 GOTO515
  65. 530 POKE251,64:POKE252,93
  66. 532 OPEN4,4,7:CMD4:PRINTCHR$(27);"A";
  67. 535 POKE198,1:POKE631,133:SYS49876
  68. 540 CLOSE4:CLR:IFPEEK(255)THEN22
  69. 545 PRINT"                                    THE END"
  70. 555 GETA$:IFA$=CHR$(13)THEN22
  71. 565 GOTO555
  72. 800 SYS49314
  73. 805 PRINT"ONE MOMENT PLEASE..."
  74. 810 POKE253,64:POKE254,33:POKE141,0:POKE142,92
  75. 815 POKE251,192:POKE252,90:POKE139,0:POKE140,32:POKE150,192:POKE151,30
  76. 820 FORI=1TO24:SYS49806:NEXT
  77. 825 RETURN
  78. 2020 PRINT"[147]ONE MOMENT PLEASE..."
  79. 2025 P=PEEK(45)+256*PEEK(46)-1
  80. 2030 IFPEEK(P)THENP=P-1:GOTO2030
  81. 2035 Q=P-740
  82. 2040 FORI=0TO39:READY:POKE50000+I,Y:NEXT
  83. 2045 POKE53,227:POKE54,194:POKE251,28:POKE252,253
  84. 2050 POKE254,P/256:POKE253,PAND255:SYS50000
  85. 2055 POKE53,195:POKE54,108:POKE251,60:POKE252,179
  86. 2060 POKE254,Q/256:POKE253,QAND255:SYS50000
  87. 2065 SYS50023:POKE45,PEEK(251):POKE46,PEEK(252)
  88. 2070 POKE2064,48:GOTO20
  89. 2075 DATA160,0,177,253,145,53,152,208,4
  90. 2080 DATA198,54,198,254,136,230,251
  91. 2085 DATA208,240,230,252,208,236,96
  92. 2090 DATA32,51,165,165,34,24,105,2,133
  93. 2095 DATA251,165,35,105,0,133,252,96
  94.